home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Golden Disk
/
Golden_Disk_89-06_1989_-_de_Side_B.d64
/
basic demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
667b
|
27 lines
10 rem dies ist ein basic demo fuer
20 rem den "prg. generator", das ihnen
30 rem zeigen soll, wie man das fertige
40 rem prg. in ihre eigenen programme
50 rem einbindet und aufruft
60 :
70 if a=0 then a=1:load"test song",8,1
75 :
80 rem ^ "demo song" schon geladen ?
90 rem wenn nicht, dann nachholen und
100 rem wieder "run"
110 :
120 rem titelbild
130 poke 53280,0:poke53281,0
140 print"[147]"tab(13)"ba[155]si[152]c de[151]mo"
150 print" druecken sie space zum abspielen"
160 print" des songs !"
170 get a$:if a$<>" " then 170
175 :
180 sys 23800: rem los gehts !
190 :
200 input " nocheinmal (j/n)";a$
210 if a$="j" or a$="[202]" then 180
220 if a$="n" or a$="n" then 240
230 print"was?":goto 180
240 print"list[145][145]";